home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / wb-enhancement / ccb / dldiz / dopus / dldlistgenerator.dopus
Encoding:
Text File  |  1996-02-26  |  1021 b   |  39 lines
  1. /*
  2. DLDiz listgenerator frontend for DirectoryOpus
  3. Made in 1995 by Morten K. Andersen (2:238/28.12@FidoNet)
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. 'status 7 -1'
  9. numselected=result
  10. IF numselected=0 THEN EXIT
  11.  
  12. IF ~SHOW('L','rexxreqtools.library')
  13.   THEN CALL ADDLIB("rexxreqtools.library", 0, -30, 0)
  14.  
  15. PARSE ARG listname
  16. IF listname=''
  17.         THEN listname=rtfilerequest(,,'Name of file to add to/generate:',,'rt_pubscrname='ADDRESS() 'rt_reqpos=reqpos_centerwin' 'rtfi_flags=0')
  18. IF listname='' THEN EXIT
  19. IF rtresult=0 THEN EXIT
  20. method=rtezrequest('Select type of list to generate','_DayDream|_AmiExpress|_Normal|_Cancel',,'rt_reqpos=reqpos_centerwin rt_pubscrname='ADDRESS())
  21.  
  22. SELECT
  23.   WHEN method=1 THEN method=D
  24.   WHEN method=2 THEN method=A
  25.   WHEN method=3 THEN method=N
  26.   WHEN rtresult=0 THEN EXIT
  27. END
  28.  
  29. 'status 13 -1'
  30. PRAGMA('D',result)
  31.  
  32. DO i=1 TO numselected
  33.      'getnextselected -1'
  34.      filename=result
  35.      ADDRESS COMMAND 'C:DLDiz NAME='filename 'LN="'listname'" LT='method 'Q F'
  36.      'selectfile' '"'filename'"' '0'
  37. END
  38. 'rescan'
  39.